<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>17</cardCount>
<cardID>11155</cardID>
<listID>5339</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on closestackglobal uselevif the short name of this stack is not "Create a Class" thenput "yes" into cd fld "check" of cd "gradepoint"else put "" into cd fld "check" of cd "gradepoint"reset menubarset userlevel to uselevput cd fld "pass option" of cd "entergrade" into xif x is "no" then exit closestackput "" into cd fld "check" of cd "entergrade"if freesize of this stack > size of this stack / 4 thendomenu "Compact Stack"end ifend closestackon openstackglobal uselevif the version of HyperCard < 2 thenanswer "Sorry, HyperCard 2.0 or later is required."go Homeend ifset cursor to watchlock screenput the userlevel into uselev --restore userlevelset userlevel to 3delete menu "Style" --create menubardelete menu "Font"delete menu "Tools"delete menu "Objects"repeat with x = 15 down to 6delete menuitem x of menu 2end repeatdelete menuitem 1 of menu 2repeat with x = 15 down to 8delete menuitem x of menu 3end repeatdelete menuitem 14 of menu 4delete menuitem 12 of menu 4Create menu "Navigate"Create menu "Calculate"Create menu "Print"Put "This Student's Grade,All Students' Grades,Class Averages"¬into menu "Calculate"set commandchar of menuitem 1 of menu 6 to "G"put "Class Roster Card,Filled Assignment Sheets,"&¬"This Student's Grade Card,All Students' Grade Cards,Class Average Grade Card,"&¬"Class Summary Grade Card,-,"&¬"Page Setup...,Print Field...,Print Card,Print Stack...,Print Report"¬into menu "Print"put "Go to a New Class,Go to Class Roster Card,Go to First Student Card,Go to Class Average Card,Go to Class Summary Card,"&¬"Go to Assignment Sheets,Go to Grade Cutoffs" into menu "Navigate"set commandchar of menuitem 2 of menu 5 to "A"put "Change Password" after menuitem 7 of menu 3get the short name of this stackif it is "Create a Class" then disable menuitem "Change Password" of menu "Edit"unlock screenend openstackon domenu x --menu command scriptsglobal namesif x is "Class Roster Card" then --Print menugo cd "EnterGrade"domenu "print card"exit domenuend ifif x is "This Student's Grade Card" thenput the number of this cd into chekput the number of cd "entergrade" into enteput (ente + names) into nowif chek ≤ ente or chek > now thenbeepanswer "First go to a student's card."exit domenuend ifprint cdexit domenuend ifif x is "Class Average Grade Card" thengo cd "Class Averages"domenu "print card"exit domenuend ifif x is "Filled Assignment Sheets" thengo cd "assign1"put the number of this cd into xput the number of the last cd into yput y-x into zadd 1 to zhide background button 1hide background button 2print z cardsgo cd "assign1"show background button 1show background button 2exit domenuend ifif x is "All Students' Grade Cards" thenput the number of cd "entergrade" into ego cd (e+1)print names cardsexit domenuend ifif x is "Class Summary Grade Card" thengo cd "summary"domenu "print card"exit domenuend ifif x is "All Students' Grades" then --Calculate menuput 1 into xyzput the number of cd "entergrade" into ego cd (e+1)send mouseup to background button "calculate grade"repeat until xyz = namesgo next cdadd 1 to xyzsend mouseup to background button "calculate grade"end repeatexit domenuend ifif x is "This Student's Grade" thenput the number of this cd into chekput the number of cd "entergrade" into enteput (ente + names) into nowif chek ≤ ente or chek > now thenbeepanswer "First go to a student's card."exit domenuend ifsend mouseup to background button "calculate grade"exit domenuend ifif x is "Class Average
